﻿Public Class consultaVentas
    Private mModoAcceso As String
    Public Property ModoAcceso() As String
        Get
            Return mModoAcceso
        End Get
        Set(ByVal value As String)
            mModoAcceso = value.Trim.ToUpper
        End Set
    End Property

    Private Sub btnImprime_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImprime.Click
        'mejorar sistema impresion
        PrintForm1.Form = Me
        PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
        PrintForm1.Print()
    End Sub

    Private Sub btnCancela_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancela.Click
        Salir()
    End Sub

    Private Sub consultaVentas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
    Public Sub FormatoGrilla()
        '        Cliente, Fecha, Importe Total, Articulo, Descripcion articulo, Cantidad, importe

        lvVentas.Items.Clear()
        lvVentas.Columns.Clear()
        lvVentas.Columns.Add("Nro. Venta", 80) '0
        lvVentas.Columns.Add("Cliente ", 100) '1
        lvVentas.Columns.Add("Fecha ", 90) '2
        lvVentas.Columns.Add("Vendedor ", 100) '3
        lvVentas.Columns.Add("Importe Total", 80) '4
        lvVentas.Columns.Add("Articulo", 300) '5
        lvVentas.Columns.Add("Cantidad", 40) '6
        lvVentas.Columns.Add("Importe", 100) '7
    End Sub
    Public Sub CargaGrilla(ByVal ListaVentas As List(Of clsVentas))
        Dim Venta As New clsVentas()
        Dim ListaVenta_Det As New List(Of clsVentas_Detalle)
        Dim CLiente As New clsCliente()
        Dim Empleado As New clsEmpleado()
        Dim i As Int32
        Dim j As Int32
        Dim k As Int32 = 0
        Try
            For i = 0 To (ListaVentas.Count - 1)
                Venta = ListaVentas.Item(i)
                Empleado = Venta.Empleado
                CLiente = Venta.Cliente
                ListaVenta_Det = Venta.Detalle
                For j = 0 To (ListaVenta_Det.Count - 1)
                    Dim Producto As New clsCatalogo()
                    Producto = ListaVenta_Det.Item(j).Producto
                    lvVentas.Items.Add(Venta.Vta_Id.ToString.Trim)
                    lvVentas.Items(k).SubItems.Add(CLiente.Apellido.Trim.ToUpper & " " & CLiente.Nombre.Trim.ToUpper)
                    lvVentas.Items(k).SubItems.Add(Venta.Vta_Fecha.ToString.Trim.ToUpper)
                    lvVentas.Items(k).SubItems.Add(Empleado.Apellido.Trim.ToUpper)
                    lvVentas.Items(k).SubItems.Add(Venta.Vta_Importe.ToString.Trim)
                    lvVentas.Items(k).SubItems.Add(Producto.Descripcion.Trim.ToUpper & " - " & Producto.Marca.Trim.ToUpper & " - " & Producto.Modelo.Trim.ToUpper)
                    lvVentas.Items(k).SubItems.Add(ListaVenta_Det.Item(j).Vtadte_Cantidad.ToString.Trim)
                    lvVentas.Items(k).SubItems.Add((Producto.Costo * Configuracion.Ganancia).ToString.Trim)
                    Producto.Dispose()
                    k = k + 1
                Next

            Next
        Catch ex As Exception
        Finally
            Venta.Dispose()
            CLiente.Dispose()
            Empleado.Dispose()
        End Try
    End Sub
    Private Sub Salir()
        informeCVentas.Enabled = True
        Select Case ModoAcceso
            Case "INFORME VTA"
                informeCVentas.Enabled = True
        End Select
        Me.Close()
    End Sub

    Private Sub consultaVentas_Deactivate(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Deactivate
        Salir()
    End Sub
End Class